home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / !screen demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  717b  |  38 lines
  1. 100 REM********************************
  2. 105 REM** DEMO-PROGRAMM ZU '!SCREEN' **
  3. 110 REM**                            **
  4. 115 REM** 28.6.85  STEFAN WAGNER     **
  5. 120 REM**          HOEHENSTR.102     **
  6. 125 REM**      5090LEVERKUSEN  3     **
  7. 130 REM**                            **
  8. 135 REM********************************
  9. 140 :
  10. 145 !(0,24,0,39),3,235
  11. 150 FORI=1TO24
  12. 155 :
  13. 160 :!(I,I,0,39-I ),2,0
  14. 165 : FORK=1TO200-8*I
  15. 170 : NEXT K
  16. 175 :
  17. 180 NEXT I
  18. 185 :
  19. 190 PRINTCHR$(147)
  20. 195 :
  21. 200 FOR F= 0 TO 3 STEP3
  22. 205 :FOR V=20 TO 0 STEP-5
  23. 210 : FOR I= 2 TO 8
  24. 215 :  FOR J=10 TO 12+I
  25. 220 :  C=RND(0)*255
  26. 225 :  !(2,I,10,J),F,C
  27. 230 :   FORX=1TOV
  28. 235 :   NEXT X
  29. 240 :  NEXT J
  30. 245 : NEXT I
  31. 250 :NEXT V
  32. 255 NEXT F
  33. 260 :
  34. 265 PRINTCHR$(19)"  ABSCHALTEN MIT STOP"
  35. 270 :
  36. 275 !(0,24,0,39),0,0
  37. 280 FORX=1TO150:NEXT:GOTO275
  38.